(define (compose f g)
    (lambda (x) 
        (f (g x))
    )
)
(define (inc x)
    (+ 1 x)
)
(define (square x)
    (* x x)
)
(display ((compose square inc) 6))
(exit)